<%
'--------------------------------------------------------------------------------------------
'Questa funzione serve a controllare che i file singoli non siano
'richiamati dal browser ma solo da OpenAsp, nel caso in cui il browser tenta di aprire tali file
'l'utente viene subito rimandato alla homepage del sito
'splitto la stringa SQL per recuperare la pagina che si cerca di aprire
i = split(request.ServerVariables("HTTP_URL"), "/")
'confronto il nome del modulo con la funzione Ubound che mi restituisce il massimo
'valore dell'array, quindi il nome della pagina richiesta dall'utente, se coincidono
'rimando alla index
if strComp("delnews.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
function isNewsMod(user, cat)
	if user <> "" and cat <> "" then
		if isNumeric(user) and isNumeric(cat) then
			set testRS = addConn.Execute("SELECT * FROM TB_NEWS_MOD WHERE IDutente = " & user & " AND IDcateg = " & cat)
			if not testRS.EOF then
				isNewsMod = true
			else
				isNewsMod = false
			end if
		else
			isNewsMod = false
		end if
	else
		isNewsMod = false
	end if
end function
	  set delRS = addConn.Execute("SELECT * FROM TB_NEWS WHERE IDnews = " & request("id"))
	  if not delRS.EOF then
		  if not isNewsMod(session("uID"), delRS("IDcategoria")) AND session("LivelloUser") < 2 AND not isADM(session("uID"), "news") then	
		  	 CALL autoReturn("default.asp?modulo=news", 2)
		  else
		  	 addConn.Execute("DELETE FROM TB_NEWS WHERE IDnews = " & request("id"))
			 addConn.Execute("DELETE FROM TB_NEWS_COMMENTI WHERE IDnews = " & request("id"))
		  end if
	  end if
	  set delRS = Nothing
	  CALL autoReturn("default.asp?modulo=news", 2)
%>